Private Sub Workbook_BeforeClose(Cancel As Boolean)
If [A1] >= 5 Then GoTo 1
[A1] = [A1] + 1
1:
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
If [A1] >= 5 Then
Dim pwd As String:  pwd = "12345"

Cells(Rows.Count, Columns.Count).Activate
    If Application.InputBox("E??C? ?IIC? ???E C????? ??E? C???? ??E CI?? ??E ?E? C???? I?? ??CE ??C ???? ?E?? ??E CI?? C?C EC???? C????", "E???? II?? ????? ", "???") <> pwd Then
    MsgBox " ???E C????? U?? ????E !! ?? ???? ?C?? ????? C??UC? ??E ?E? C???? I?? ??CE ??C ???? ?E?? ??E CI?? C?C EC???? C????  ", 0, "???C? C?II?? ??U??"
ThisWorkbook.Save
ThisWorkbook.Close
      Else
      Range("A1").Activate

        MsgBox "???EC? E? !! ???E C????? ????E !! E??? EC?II?? ......", 32, "II?? ?C??"
[A1] = 4
End If
End If

End Sub
